home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 December
/
1988-12.d64
/
digi-sound 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
45 lines
10 rem copyright 1988 compute! publications, inc. - all rights reserved
20 printchr$(14)chr$(8)chr$(147):poke53280,0:poke53281,0
30 printtab(12)"[195]opyright 1988":printtab(7)"[195][207][205][208][213][212][197]! [208]ublications, [201]nc."
40 printtab(10)"[193]ll [210]ights [210]eserved":fori=1to1000:next
50 fori=49152to49333:reada:pokei,a:x=x+a:next
60 ifx<>27127thenprint"[197]rror in data statements.":stop
70 print"[147][158]";tab(12);"[196]igi-[211]ound 64 "
80 print"[158] 1 [146] [210]ecord":print"[158] 2 [146] [208]layback"
90 print"[158] 3 [146] [211]ave [211]ample to [196]isk"
100 print"[158] 4 [146] [204]oad [211]ample from [196]isk"
110 print"[158] 5 [146] [211]ample [195]ontinuously from [212]ape":print"[158] 6 [146] [209]uit"
120 printtab(13)"[197]nter (1-6)"
130 geta$:ifa$=""then130
140 a=val(a$):onagosub150,180,190,230,260,320:goto70
150 print"[158] [208]ress [208]lay on [217]our [196]atasette."
160 ifpeek(1)=55then160
170 sys49223:return
180 sys49152:return
190 gosub330
200 poke187,peek(71):poke188,peek(72):p=peek(187)+256*peek(188):poke183,peek(p)
210 poke187,peek(p+1):poke188,peek(p+2):poke251,0:poke252,16:poke185,1
220 poke186,d:poke780,251:poke781,69:poke782,192:sys65496:return
230 gosub330
240 loadf$,d,1
250 return
260 print"[158][206]ote:[146] [217]ou must re-run the program when "
270 print"finished. [208]ress play on [196]atasette when"
280 print "ready or press any key to cancel."
290 geta$:ifa$<>""then70
300 ifpeek(1)=119then290
310 sys49296
320 printchr$(9):poke53280,14:poke53281,6:print"[154][147]":end
330 input"[158][197]nter [196]evice [206]umber: ";d
340 input"[158][197]nter [198]ilename: ";f$:f$=left$(f$,14):return
350 data 169,11,141,17,208,234,234,234,120,160,0,169,16,132,63,133,64,234,177
360 data 63,170,202,234,234,234,224,0,208,248,201,0,240,15,169,15,141,24,212
370 data 234,234,234,234,234,169,0,141,24,212,200,208,223,230,64,165,64,201
380 data 160,144,215,88,169,27,141,17,208,234,234,234,96,234,234,169,11,141,17
390 data 208,234,234,234,120,160,0,169,16,132,63,133,64,234,173,13,220,201,16
400 data 208,19,138,145,63,162,0,200,208,241,230,64,165,64,201,160,144,233,76
410 data 132,192,232,208,227,138,145,63,200,208,221,230,64,165,64,201,160,144
420 data 213,88,169,27,141,17,208,234,234,234,96,234,234,169,11,141,17,208,234
430 data 234,234,120,173,13,220,197,236,240,249,201,16,208,10,169,15,141
440 data 24,212,133,236,76,153,192,169,0,141,24,212,76,169,192,200